home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / business / cntws11a.zip / GLJNLHST.MDX (.txt) < prev    next >
dBASE Multiple Index  |  1997-02-17  |  10KB  |  94 lines
  1. GLJNLHST
  2. stomer in sele()
  3. sele customer
  4. if reccount()=0
  5.     append blank
  6. endif
  7. declare cus[reccount(),1]
  8. copy to array cus field sub_code
  9. use cashbook in sele()
  10. sele cashbook
  11. if reccount() = 0
  12.     append blank
  13. endif
  14. declare cbook[reccount(),1]
  15. copy to array cbook field sub_code
  16. use saleprod in sele() order prod_code
  17. sele saleprod
  18. if reccount() = 0
  19.     append blank
  20. endif
  21. declare sales[reccount(),1]
  22. copy to array sales field prod_code
  23. use stmaster i
  24. ACT_CODE
  25. SUB_CODE
  26. FIRST_REF
  27. return
  28. PROCEDURE formclose     && CENTWISE.ONCLOSE
  29. *-----------------------------------------------------------------
  30. * NAME
  31. *   ONCLOSE - Event handler for CENTWISE
  32. *-----------------------------------------------------------------
  33.     sele customer
  34.     set order to sub_code
  35.     if seek(space(10))
  36.         dele all for isblank(sub_code)     
  37.         pack
  38.     endif
  39.     sele creditor
  40.     set order to sub_code
  41.         if seek(space(10))
  42.         dele all for isblank(sub_code)
  43.         pack
  44.     endif
  45.     sele cashbook
  46.     set order to sub_code
  47.         if seek(space(2))
  48.         dele all for isblank(sub_code) 
  49.         pack
  50.     endif
  51.     sele stmaster
  52.     set order to stock_code
  53.     if seek(space(10))
  54.         dele all for isblank(stock_code)    
  55.         pack
  56.     endif
  57.     sele saleprod
  58.     set order to prod_code
  59.     if seek(space(10))
  60.         dele all for isblank(prod_code)     
  61.         pack
  62.     endif
  63.     lvoid = centwise.release()
  64.     saf = set('safety')
  65.     set safety off
  66.     save to defaults. 
  67.     set safety &saf.
  68.     close data
  69.     set print to
  70.     set print off
  71. RETURN    
  72. procedure debts
  73.     do customer
  74. return
  75. procedure crdts
  76.     do creditor
  77. return
  78. procedure cshbks
  79.     do cashbook
  80. return
  81. PROCEDURE saleinv     && DBMITEM1.ONCLICK
  82. *-----------------------------------------------------------------
  83. * NAME
  84. *   ONCLICK - Event handler for DBMITEM1
  85. *-----------------------------------------------------------------
  86.     do invcapt
  87. RETURN    
  88. ACT_CODE
  89. ACT_CODE
  90. SUB_CODE
  91. SUB_CODE
  92. FIRST_REF
  93. FIRST_REF
  94.